home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / archives / sonivisgui.lha / SONIVISGUI / CyBERpeg < prev    next >
Encoding:
Text File  |  1995-05-17  |  1005 b   |  45 lines

  1. ;mpeg_play GUI file viewer V1.0
  2. ;©1995 Ivan Smith
  3. ;For WorBench 3.X+ ONLY!
  4. ;Requestchoice and Request File must be in you C: dir.
  5.  
  6. ;setup the ENVvars dir for X11 Stuff
  7. IF NOT EXISTS ENV:X11
  8. MAKEDIR >NIL: ENV:X11
  9. ENDIF
  10. ;Set the actual variables - add your variables here for window
  11. ;playback on WB or other custom screens. Read the DOCS for mpeg_play.
  12. SETENV X11/gfxcard 1
  13. SETENV X11/askmode 1
  14. ;Home(Start)
  15. LAB start
  16. ;Audio Enabled or not?
  17. C:Requestchoice >env:Loperat "Options""MPEG PLAYBACK*nCyBERgraphics""once""loop"
  18. ;Variables for Requestchoice
  19. IF $Loperat eq "0"
  20. skip loop
  21. ENDIF
  22. IF $Loperat eq "1"
  23. skip once
  24. ENDIF
  25. IF $Loperat eq "2"
  26. C:endcli
  27. ENDIF
  28. ;Call the better vision player
  29. LAB loop
  30. ;Ask for a file name
  31. C:Requestfile >env:Xfilename TITLE "Select an MPEG stream"
  32. Stack 50000
  33. mpeg_play -loop $Xfilename
  34. C:endcli
  35. skip start
  36. ;Call the Audio version
  37. LAB once
  38. Stack 50000
  39. ;Ask for a file name
  40. C:Requestfile >env:Xfilename TITLE "Select an MPEG Stream"
  41. C:mpeg_play $Xfilename
  42. C:endcli
  43. skip start
  44.  
  45. ;END